home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / U-Z / ViewIt™ 2.2 Shareware / Projects / THINK C 6.0 Demos / vDemoLC.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-09-20  |  3.8 KB  |  114 lines  |  [TEXT/KAHL]
  1. /* ViewIt 2.2 Demonstration Program */
  2. /* ©FaceWare 1991-93.  All Rights Reserved. */
  3.  
  4. #include "string.h"
  5. #include "FaceStorLC.h"
  6. extern struct FaceRec fRec;
  7.  
  8. short helpShown;
  9. struct {
  10.     short        myInteger;
  11.     float        myReal;
  12.     char        myString[100];
  13.     long        myFlags;
  14.     } myRec;
  15. short myList;
  16. long oldTicks,newTicks;
  17. float theReal,delta;
  18.  
  19. pascal void fJumpIt(Ptr thePtr) = {0x2257,0x2051,0x4E90};
  20.  
  21. pascal void OverProc(Ptr thePtr) {
  22.     if (fRec.uCommand == 264)            /* a key down message? */
  23.         if (fRec.uParam[0] == 32)        /* SPACE key pressed? */
  24.             fRec.uParam[0] = 95;            /* convert to UNDERLINE */
  25.     fJumpIt(thePtr);}                            /* pass message to driver */
  26.  
  27. void main()
  28. {
  29.     myRec.myInteger = 0;
  30.     myRec.myReal = 6.2;
  31.     strcpy(myRec.myString,"Hello");
  32.     myRec.myFlags = 10;
  33.     myList = 2;
  34.     oldTicks = 0;
  35.     theReal = 6.0;
  36.  
  37. /* Initialize FaceIt */
  38.     strcpy(fRec.uName, "vDemo.Rsrc");
  39.     FaceIt(0L,DoInit,0L,0L,0L,0L);
  40.  
  41. /* Open Modeless Window using FWND 1000 */
  42.     FaceIt(0L,NewWnd,1000L,1L,0L,0L);
  43.  
  44.     for (;;) {
  45.         FaceIt(0L,DoLoop,0L,0L,0L,0L);
  46. /* Standard "About" Menu Item Selection */
  47.         if ((fRec.uMenuID == 101L) && (fRec.uMenuItem == 1L)) {
  48.             strcpy(fRec.uString, "Demonstration of the use of ViewIt\rwindows in a FaceIt-based program.");
  49.             FaceIt(0L,ShoStr,3L,12L,(1L + (409L * 65536L)),0L);
  50.             }
  51. /* Hit in Modeless Window's "Open Modal" Button */
  52.         else if ((fRec.uMenuID == 1000L) && (fRec.wcHit == 2L)) {
  53.             FaceIt(0L,NewWnd,1001L,0L,0L,0L);        /* Open Modal Window */
  54.             for (;;) {
  55.                 FaceIt(0L,MdlWnd,1001L,0L,0L,0L);    /* Process Modal Events */
  56.                 if (fRec.wcHit == -1L)                        /* Hit in Close Box */
  57.                     break;
  58.                 else if (fRec.wcHit == 1L) {            /* Hit in "Open Nested" Button */
  59.                     FaceIt(0L,NewWnd,1002L,0L,0L,(long)&myRec);    /* Open Nested Modal */
  60.                     FaceIt(0L,GetCtl,1002L,0L,3L,3L);                        /* Link Scrollable List */
  61.                     FaceIt(0L,LnkCtl,(long)fRec.cControl,(long)&myList,2L,0L);
  62.                     FaceIt(0L,GetCtl,1002L,0L,2L,3L);                        /* Set Override Proc */
  63.                     FaceIt(0L,OvrCtl,(long)fRec.cControl,(long)&OverProc,0L,0L);
  64.                     FaceIt(0L,SetVal,1002L,0L,0L,0L);                        /* Set Linked Values */
  65.                     helpShown = false;
  66.                     for (;;) {
  67.                         FaceIt(0L,MdlWnd,1002L,-2L,0L,0L);                /* Process Modal Events */
  68.                         if (fRec.uMenuID == 0L) {                                    /* No Message */
  69.                             newTicks = TickCount();
  70.                             if (newTicks > oldTicks + 60) {
  71.                                 oldTicks = newTicks;
  72.                                 FaceIt(0L,GetCtl,1002L,0L,2L,8L);
  73.                                 SetCtlValue(fRec.cControl,(fRec.cValue % 4) + 1);
  74.                                 }
  75.                             }
  76.                         else if (fRec.wvHit == 1L) {                            /* Hit in View #1 */
  77.                             if (fRec.wcHit == 1L)                                        /* Hit in "OK" Button */
  78.                                 break;
  79.                             else if (fRec.wcHit == 2L) {                        /* Hit in "Show/Hide" */
  80.                                 if (helpShown == true) {
  81.                                     FaceIt(0L,ShoCtl,0L,0L,-3L,2L);            /* Hide v3, Show v2 */
  82.                                     helpShown = false;}
  83.                                 else {
  84.                                     FaceIt(0L,ShoCtl,0L,0L,-2L,3L);            /* Hide v2, Show v3 */
  85.                                     helpShown = true;}
  86.                                 }
  87.                             }
  88.                         else if (fRec.wvHit == 2L)                                /* Hit in View #2 */
  89.                             if ((fRec.wcHit == 6L)||(fRec.wcHit == 7L)) { /* Up/Down Arrow */
  90.                                 FaceIt(0L,GetCtl,1002L,0L,2L,(long)fRec.wcHit);
  91.                                 delta = 0.001 * (fRec.cMin - 2);
  92.                                 myRec.myReal = myRec.myReal + delta;
  93.                                 FaceIt(0L,SetVal,1002L,0L,2L,2L);
  94.                                 Delay(5,&fRec.uI4);
  95.                                 }
  96.                         }
  97.                     FaceIt(0L,GetVal,1002L,0L,0L,0L);                        /* Get Linked Values */
  98.                     FaceIt(0L,EndWnd,1002L,0L,0L,0L);                        /* Close Nested Modal */
  99.                     }
  100.                 }
  101.             FaceIt(0L,EndWnd,1001L,0L,0L,0L);        /* Close Modal Window */
  102.           }
  103. /* Hit in Modeless Window's "Why ViewIt?" Button */
  104.         else if ((fRec.uMenuID == 1000L) && (fRec.wcHit == 3L)) {
  105.             FaceIt(0L,NewWnd,1003L,0L,0L,(long)&theReal);
  106.             FaceIt(0L,SetVal,1003L,0L,0L,0L);
  107.             for (;;) {
  108.                 FaceIt(0L,MdlWnd,1003L,0L,0L,0L);
  109.                 if (fRec.wcHit == 1L) break;}
  110.             FaceIt(0L,GetVal,1003L,0L,0L,0L);
  111.             FaceIt(0L,EndWnd,1003L,0L,0L,0L);
  112.             }
  113.         }
  114. }